home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / c / vbcc.lha / vbcc / frontend / vc.c
C/C++ Source or Header  |  1997-12-30  |  14KB  |  426 lines
  1. /*  Frontend for vbcc                       */
  2. /*  (c) in 1995-96 by Volker Barthelmann    */
  3. /*  #define AMIGA for Amiga-Version         */
  4.  
  5. #include <stdlib.h>
  6. #include <string.h>
  7. #include <stdio.h>
  8.  
  9. #ifdef AMIGA
  10. #include <dos/dos.h>
  11. #include <dos/dosasl.h>
  12. #include <exec/libraries.h>
  13. #include <clib/dos_protos.h>
  14.  
  15. extern struct Library *DOSBase;
  16.  
  17. /*  Must be 32bit-aligned - I know it will be if compiled with vbcc.    */
  18. struct FileInfoBlock fib;
  19. #endif
  20.  
  21. struct NameList{
  22.     struct NameList *next;
  23.     char *obj;
  24. } *first_obj=0,*last_obj=0,*first_scratch=0,*last_scratch=0;
  25.  
  26. /*  Limit fuer Laenge der Namen (wegen Wildcards)   */
  27. #define NAMEBUF 1000    /*  MUST BE >= ~TMPNAM_L+7  */
  28. #define USERLIBS 1000
  29.  
  30. /*  Ab dieser Laenge werden Objektfiles nicht direkt uebergeben,    */
  31. /*  sondern aus einem File an den Linker uebergeben                 */
  32. #ifdef AMIGA
  33. int MAXCLEN=500;
  34. #else
  35. int MAXCLEN=32000;
  36. #endif
  37.  
  38. #define NOTMPFILE 2048
  39. #define OUTPUTSET 1024
  40. #define NOSTDLIB 512
  41. #define VERBOSE 256
  42. #define VERYVERBOSE 128
  43. #define KEEPSCRATCH 64
  44.  
  45. #define PPSRC 1
  46. #define CCSRC 2
  47. #define ASSRC 3
  48. #define OBJ 4
  49.  
  50. char empty[]="";
  51. /*  Namen der einzelnen Phasen  */
  52. char *ppname=empty,*ccname=empty,*asname=empty,*ldname=empty,*l2name=empty,*rmname=empty;
  53. /*  dasselbe fuer VERBOSE   */
  54. char *ppv=empty,*ccv=empty,*asv=empty,*ldv=empty,*l2v=empty,*rmv=empty;
  55.  
  56. #if defined(AMIGA)
  57. const char *config_name="vc.config";
  58. const char *search_dirs[]={"","ENV:","VBCC:"};
  59. char *ul="vlib:%s.lib";
  60. #elif defined(WINTEL)
  61. const char *config_name="vc.cfg";
  62. const char *search_dirs[]={"","%VCCFG%\\"};
  63. char *ul="-l%s";
  64. #else
  65. const char *config_name="vc.config";
  66. const char *search_dirs[]={"","~/","/etc/"};
  67. char *ul="-l%s";
  68. #endif
  69.  
  70. /*  String fuer die Default libraries   */
  71. char userlibs[USERLIBS];
  72. char *nomem="Not enough memory!\n";
  73.  
  74. char *destname="a.out";
  75. char namebuf[NAMEBUF+1],namebuf2[NAMEBUF+1];
  76. char oldfile[NAMEBUF+2];
  77.  
  78. char *config;
  79. char **confp;
  80.  
  81. int typ(char *);
  82. char *add_suffix(char *,char *);
  83. void raus(int);
  84.  
  85. char *command,*options,*linkcmd,*objects,*libs,*ppopts;
  86. #ifdef AMIGA
  87. struct AnchorPath *ap;
  88. #endif
  89.  
  90. int linklen=10,flags=0;
  91.  
  92. void free_namelist(struct NameList *p)
  93. {
  94.     struct NameList *m;
  95.     while(p){
  96.         m=p->next;
  97.         if(flags&VERYVERBOSE){
  98.             puts("free p->obj");
  99.             if(!p->obj) puts("IS ZERO!!"); else puts(p->obj);
  100.         }
  101.         free((void *)p->obj);
  102.         if(flags&VERYVERBOSE){puts("free p"); if(!p) puts("IS ZERO!!");}
  103.         free((void *)p);
  104.         p=m;
  105.     }
  106. }
  107. void del_scratch(struct NameList *p)
  108. {
  109.     while(p){
  110.         sprintf(command,rmname,p->obj);
  111.         if(flags&VERBOSE) printf("%s\n",command);
  112.         if(system(command)){printf("%s failed\n",command);raus(20);}
  113.         p=p->next;
  114.     }
  115. }
  116. void raus(int rc)
  117. {
  118.     if(confp)   free(confp);
  119.     if(config)  free(config);
  120.     if(objects) free(objects);
  121.     if(libs)    free(libs);
  122.     if(command) free(command);
  123.     if(ppopts)  free(ppopts);
  124.     if(options) free(options);
  125.     if(linkcmd) free(linkcmd);
  126. #ifdef AMIGA
  127.     if(ap) free(ap);
  128. #endif
  129.     free_namelist(first_obj);
  130.     free_namelist(first_scratch);
  131.     exit(rc);
  132. }
  133. void add_name(char *obj,struct NameList **first,struct NameList **last)
  134. {
  135.     struct NameList *new;
  136.     if(flags&VERYVERBOSE) printf("add_name: %s\n",obj);
  137.     if(!(new=(struct NameList *)malloc(sizeof(struct NameList))))
  138.         {printf(nomem);raus(20);}
  139.     if(!(new->obj=(char *)malloc(strlen(obj)+1)))
  140.         {free((void *)new);printf(nomem);raus(20);}
  141.     if(first==&first_obj) linklen+=strlen(obj)+1;
  142.     strcpy(new->obj,obj);
  143.     new->next=0;
  144.     if(!*first){
  145.         *first=*last=new;
  146.     }else{
  147.         (*last)->next=new;*last=new;
  148.     }
  149. }
  150. int read_config(const char *cfg_name)
  151. {
  152.     int i,count; long size;
  153.     char *p,*name;
  154.     FILE *file=0;
  155.     for(i=0;i<sizeof(search_dirs)/sizeof(search_dirs[0]);i++){
  156.       name=malloc(strlen(search_dirs[i])+strlen(cfg_name)+1);
  157.       if(!name) {printf(nomem);raus(EXIT_FAILURE);}
  158.       strcpy(name,search_dirs[i]);
  159.       strcat(name,cfg_name);
  160.       file=fopen(name,"rb");
  161.       free(name);
  162.       if(file) break;
  163.     }
  164.     if(!file) {puts("No config file!");raus(EXIT_FAILURE);}
  165.     if(fseek(file,0,SEEK_END)) return(0);
  166.     size=ftell(file);
  167.     if(fseek(file,0,SEEK_SET)) return(0);
  168.     config=malloc(size);
  169.     if(!config){printf(nomem);raus(EXIT_FAILURE);}
  170.     fread(config,1,size,file);
  171.     fclose(file);
  172.     count=0;p=config;
  173.     while(p<config+size&&*p){
  174.         count++;
  175.         while(p<config+size&&*p!='\n') p++;
  176.         if(*p=='\n') *p++=0;
  177.     }
  178.     confp=malloc(count*sizeof(char *));
  179.     for(p=config,i=0;i<count;i++){
  180.         confp[i]=p;
  181.         while(*p) p++;
  182.         p++;
  183.     }
  184.     return(count);
  185. }
  186.  
  187. int main(int argc,char *argv[])
  188. {
  189.     int tfl,i,len=10,pm,count;char *parm;long opt=1;
  190.     for(i=1;i<argc;i++){
  191.         if(argv[i][0]=='+'){
  192.             config_name=argv[i]+1;
  193.             argv[i][0]=0;
  194.             break;
  195.         }
  196.     }
  197.     count=read_config(config_name);
  198. #ifdef AMIGA
  199.     if(pm=DOSBase->lib_Version>=36){
  200.         if(ap=(struct AnchorPath *)calloc(sizeof(struct AnchorPath)+NAMEBUF,1))
  201.             {ap->ap_Strlen=NAMEBUF;ap->ap_BreakBits=0;} else pm=0;
  202.     }
  203. #endif
  204.     for(i=1;i<argc+count;i++){
  205.         if(i<argc) parm=argv[i]; else parm=confp[i-argc];
  206.         if(!strncmp(parm,"-ul=",4)){ul=parm+4;*parm=0;}
  207.     }
  208.     for(i=1;i<argc+count;i++){
  209.         if(i<argc) parm=argv[i]; else parm=confp[i-argc];
  210. /*        printf("Parameter %d=%s\n",i,parm);*/
  211.         if(!strncmp(parm,"-ml=",4)){MAXCLEN=atoi(parm+4);*parm=0;}
  212.         if(!strncmp(parm,"-pp=",4)){ppname=parm+4;*parm=0;}
  213.         if(!strncmp(parm,"-cc=",4)){ccname=parm+4;*parm=0;}
  214.         if(!strncmp(parm,"-as=",4)){asname=parm+4;*parm=0;}
  215.         if(!strncmp(parm,"-ld=",4)){ldname=parm+4;*parm=0;}
  216.         if(!strncmp(parm,"-l2=",4)){l2name=parm+4;*parm=0;}
  217.         if(!strncmp(parm,"-rm=",4)){rmname=parm+4;*parm=0;}
  218.         if(!strncmp(parm,"-ppv=",5)){ppv=parm+5;*parm=0;}
  219.         if(!strncmp(parm,"-ccv=",5)){ccv=parm+5;*parm=0;}
  220.         if(!strncmp(parm,"-asv=",5)){asv=parm+5;*parm=0;}
  221.         if(!strncmp(parm,"-ldv=",5)){ldv=parm+5;*parm=0;}
  222.         if(!strncmp(parm,"-l2v=",5)){l2v=parm+5;*parm=0;}
  223.         if(!strncmp(parm,"-rmv=",5)){rmv=parm+5;*parm=0;}
  224.         if(!strcmp(parm,"-notmpfile")) {flags|=NOTMPFILE;*parm=0;}
  225.         if(!strcmp(parm,"-E")) {flags|=CCSRC;*parm=0;}
  226.         if(!strcmp(parm,"-S")) {flags|=ASSRC;*parm=0;}
  227.         if(!strcmp(parm,"-c")) {flags|=OBJ;*parm=0;}
  228.         if(!strcmp(parm,"-v")) {flags|=VERBOSE;*parm=0;}
  229.         if(!strcmp(parm,"-k")) {flags|=KEEPSCRATCH;*parm=0;}
  230.         if(!strcmp(parm,"-vv")) {flags|=VERBOSE|VERYVERBOSE;*parm=0;}
  231.         if(!strcmp(parm,"-nostdlib")) {flags|=NOSTDLIB;*parm=0;}
  232.         if(!strncmp(parm,"-O",2)){
  233.             if(parm[2]=='0') opt=0;
  234.             if(parm[2]=='1'||parm[2]==0) opt=991;
  235.             if(parm[2]=='2') opt=1023;
  236.             if(parm[2]>='3') opt=~0;
  237.             if(parm[2]=='=') opt=atoi(&parm[3]);
  238.             *parm=0;
  239.         }
  240.         if(!strcmp(parm,"-o")&&i<argc-1) {
  241.             *argv[i++]=0;destname=argv[i];
  242.             flags|=OUTPUTSET;argv[i]="";continue;
  243.         }
  244.         if(!strncmp(parm,"-o=",3)){
  245.             destname=parm+3;
  246.             flags|=OUTPUTSET;*parm=0;continue;
  247.         }
  248.         if(parm[0]=='-'&&parm[1]=='l'){
  249.             size_t l=strlen(userlibs);
  250.             if((l+strlen(parm)-2+strlen(ul)+1)>=USERLIBS){puts("Userlibs too long");exit(20);}
  251.             userlibs[l]=' ';
  252.             sprintf(userlibs+l+1,ul,parm+2);
  253.             *parm=0;continue;
  254.         }
  255.         len+=strlen(parm)+10;
  256.     }
  257.     if(flags&VERBOSE) printf("vc frontend for vbcc (c) in 1995-97 by Volker Barthelmann\n");
  258.     if(!(flags&7)) flags|=5;
  259.     tfl=flags&7;
  260.     if(flags&VERYVERBOSE){ppname=ppv;ccname=ccv;asname=asv;ldname=ldv;rmname=rmv;l2name=l2v;}
  261.     if(flags&NOSTDLIB){ldname=l2name;}
  262.     /*  Nummer sicher...    */
  263.     len+=strlen(ppname)+strlen(ccname)+strlen(asname)+strlen(rmname)+strlen(userlibs)+NAMEBUF;
  264.     if(!(command=malloc(len))){printf(nomem);raus(20);}
  265.     if(!(options=malloc(len))){printf(nomem);raus(20);}
  266.     if(!(ppopts=malloc(len))){printf(nomem);raus(20);}
  267.     *options=0;